home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / CHKBOOK.BALANCE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  111 lines
  1. 1  HOME : VTAB 5
  2. 5  DIM D$(15)
  3. 120  PRINT "IF YOU WANT INSTRUCTIONS, TYPE '1'"
  4. 121  PRINT "OTHERWISE TYPE'2'";: INPUT T
  5. 125  IF T < >1  THEN 240
  6. 130  HOME : VTAB 5
  7. 135  PRINT "THIS PROGRAM WILL HELP YOU BALANCE"
  8. 138  PRINT "YOUR CHECKBOOK. IT IS VERY EASY TO"
  9. 140  PRINT "USE AND WILL PROMPT YOU FOR ALL"
  10. 143  PRINT "NEEDED INFORMATION. BECAUSE THIS "
  11. 145  PRINT "PROGRAM IS NOT FILE INTERACTIVE, IT"
  12. 148  PRINT "WILL BE NECESSARY FOR YOU TO UPDATE"
  13. 150  PRINT "THE PROGRAM EACH TIME BEFORE IT IS RUN"
  14. 153  PRINT "AND THEN TO SAVE THE UPDATED VERSION"
  15. 155  PRINT "AFTER YOU ARE FINISHED. THEN THE NEXT"
  16. 160  PRINT "TIME YOU NEED TO USE THE PROGRAM"
  17. 165  PRINT "SIMPLY RUN THE MOST RECENT VERSION."
  18. 170  PRINT "IT WILL BE NECESSARY FOR YOU TO SAVE"
  19. 173  PRINT "A NEW COPY EACH TIME OR ELSE YOU WILL"
  20. 175  PRINT "HAVE TO REENTER THE CHECKS AND DEPOSITS"
  21. 180  PRINT "EACH TIME, AGAIN AND AGAIN."
  22. 185  PRINT 
  23. 186  PRINT "TO CONTINUE, TYPE '1'";: INPUT G
  24. 188  HOME : VTAB 1
  25. 190  PRINT "ENTER ALL THE CHECKS YOU HAVE WRITTEN"
  26. 195  PRINT "THIS PERIOD IN DATA STATEMENTS STARTING"
  27. 198  PRINT "IN LINE 1000. ENTER YOUR NEW DEPOSITS"
  28. 200  PRINT "IN DATA STATEMENTS STARTING IN LINE"
  29. 203  PRINT "2000. ENTER ALL DEBITS AND SERVICE"
  30. 205  PRINT "CHARGES IN LINES 3000. ENTER ALL"
  31. 210  PRINT "CREDITS IN LINES 4000. LINES 5000 TO"
  32. 215  PRINT "5999 ARE RESERVED FOR LISTING THE"
  33. 218  PRINT "CHECKS THAT HAVE CLEARED ON YOUR"
  34. 220  PRINT "ACCOUNT. 6000 TO 6999 ARE RESERVED FOR"
  35. 225  PRINT "THE DEPOSITS THAT HAVE CLEARED. IT IS "
  36. 230  PRINT "IMPORTANT THAT YOU DON'T REMOVE THE"
  37. 235  PRINT "LAST DATA LINE WHICH IS A 0 FOR EACH"
  38. 238  PRINT "FIELD."
  39. 240  PRINT 
  40. 250  READ CK
  41. 255 CV = CV +CK
  42. 260  IF CK = 0  THEN 275
  43. 265 C1 = C1 +1
  44. 270  GOTO 250
  45. 275  READ DE
  46. 280 DV = DV +DE
  47. 285  IF DE = 0  THEN 300
  48. 290 C2 = C2 +1
  49. 295  GOTO 275
  50. 300  READ SE
  51. 305 CS = CS +SE
  52. 310  IF SE = 0  THEN 325
  53. 315 C3 = C3 +S1
  54. 320  GOTO 300
  55. 325  READ CR
  56. 330 RC = RC +CR
  57. 335  IF CR = 0  THEN 350
  58. 340 C4 = C4 +1
  59. 345  GOTO 325
  60. 350  READ KC
  61. 355 CC = CC +KC
  62. 360  IF KC = 0  THEN 375
  63. 365 C5 = C5 +1
  64. 370  GOTO 350
  65. 375  READ BA:BC = BC +BA
  66. 380  IF BA = 0  THEN 395
  67. 385 C6 = C6 +1
  68. 390  GOTO 375
  69. 395  PRINT 
  70. 400  PRINT 
  71. 405  PRINT  TAB( 10);"FROM YOUR BANK STATEMENT": PRINT 
  72. 410  PRINT "WHAT IS YOUR OPENING BALANCE?";: INPUT OP
  73. 415  PRINT "WHAT IS YOUR CLOSING BALANCE?";: INPUT CB
  74. 425  PRINT "WHAT IS THE DATE (MM/DD/YY)";: INPUT D$
  75. 430  HOME 
  76. 440  PRINT  TAB( 25);"DATE  ";D$
  77. 450  PRINT "TOTAL AMT. OF CHECKS WRITTEN TO"
  78. 453  PRINT "DATE"; TAB( 30);"=$";CV
  79. 455  PRINT "NUMBER WRITTEN TO DATE"; TAB( 25);C1
  80. 465  PRINT "TOTAL DEPOSITS MADE TO DATE"; TAB( 30);"=$";DV
  81. 470  PRINT "NO. OF DEPOSITS TO DATE"; TAB( 25);C2
  82. 480  PRINT "TOTAL AMT. OF DEPOSITS CLEARED TO"
  83. 483  PRINT "DATE"; TAB( 30);"=$";BC
  84. 485  PRINT "NUMBER CLEARED"; TAB( 25);C6
  85. 495  PRINT "OPENING BALANCE THIS PERIOD"; TAB( 30);"=$";OP
  86. 500  PRINT "TOTAL SERVICE CHARGES AND DEBITS TO"
  87. 505  PRINT "DATE"; TAB( 30);"=$";CS
  88. 515  PRINT "TOTAL CREDITS TO DATE"; TAB( 30);"=$"RC
  89. 525  PRINT "TOTAL CHECKS CLEARED TO DATE"; TAB( 30);"=$";CC
  90. 530  PRINT "CHECKS CLEARED"; TAB( 25);C5
  91. 540  PRINT "CHECKS OUTSTANDING"; TAB( 25);C1 -C5
  92. 550  PRINT "AMOUNT CURRENTLY OUTSTANDING"; TAB( 30);"=$";CV -CC
  93. 560  PRINT "CLOSING BANK BALANCE"; TAB( 30);"=$";CB
  94. 565 BB = BC +RC -CS -CC
  95. 570  PRINT "CALCULATED BANK BALANCE"; TAB( 30);"=$";BB
  96. 575 BB =  INT(BB *100)/100
  97. 580 CB =  INT(CB *100)/100
  98. 585  IF BB = CB  THEN 615
  99. 590  PRINT "****THERE IS AN ERROR. CHECK YOUR"
  100. 593  PRINT "ENTRIES CAREFULLY ****"
  101. 615 CZ = DV +RC -CS -CV
  102. 620  PRINT "TRUE CHECKBOOK BALANCE"; TAB( 30);"=$";CZ
  103. 650  GOTO 6050
  104. 1990  DATA  0
  105. 2990  DATA  0
  106. 3990  DATA  0
  107. 4990  DATA  0
  108. 5990  DATA  0
  109. 6050  END 
  110. 6990  DATA  0
  111. 7000  END